home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d5 / pmusic12.arc / PLAYALL.BAT < prev    next >
DOS Batch File  |  1990-01-29  |  5KB  |  149 lines

  1. echo off
  2.  
  3. if exist 1st_noel.ply goto playsngs
  4.  
  5. cls
  6. if "%1"=="PC"  goto makepc
  7. if "%1"=="pc"  goto makepc
  8. if "%1"=="XT"  goto makext
  9. if "%1"=="xt"  goto makext
  10. if "%1"=="AT"  goto makeat
  11. if "%1"=="at"  goto makeat
  12. if "%1"=="286" goto make286
  13. if "%1"=="386" goto make386
  14. goto noparam
  15.  
  16. :makepc
  17. echo Compiling all songs... Please wait (Ctrl-C aborts)...
  18. for %%a in (1ST_NOEL BLUES FURELISE HOUSERIS INVENT03 INVENT04 INVENT08) do makepoly %%a /541 >nul
  19. echo Halfway done...
  20. for %%a in (INVENT13 INVENT14 PACHCAN RONDOCAR STLOUIS TRIPTEST MALAGUEN COME_ALL) do makepoly %%a /541 >nul
  21. echo. 
  22. echo Press any key when ready to start the music...
  23. pause >nul
  24. goto playsngs
  25.  
  26. :makext
  27. echo Compiling all songs... Please wait (Ctrl-C aborts)...
  28. for %%a in (1ST_NOEL BLUES FURELISE HOUSERIS INVENT03 INVENT04 INVENT08) do makepoly %%a >nul
  29. echo Halfway done...
  30. for %%a in (INVENT13 INVENT14 PACHCAN RONDOCAR STLOUIS TRIPTEST MALAGUEN COME_ALL) do makepoly %%a >nul
  31. echo. 
  32. echo Press any key when ready to start the music...
  33. pause >nul
  34. goto playsngs
  35.  
  36. :makeat
  37. echo Compiling all songs... Please wait (Ctrl-C aborts)...
  38. for %%a in (1ST_NOEL BLUES FURELISE HOUSERIS INVENT03 INVENT04 INVENT08) do makepoly %%a /251 >nul
  39. echo Halfway done...
  40. for %%a in (INVENT13 INVENT14 PACHCAN RONDOCAR STLOUIS TRIPTEST MALAGUEN COME_ALL) do makepoly %%a /251 >nul
  41. echo. 
  42. echo Press any key when ready to start the music...
  43. pause >nul
  44. goto playsngs
  45.  
  46. :make286
  47. echo Compiling all songs... Please wait (Ctrl-C aborts)...
  48. for %%a in (1ST_NOEL BLUES FURELISE HOUSERIS INVENT03 INVENT04 INVENT08) do makepoly %%a /189 >nul
  49. echo Halfway done...
  50. for %%a in (INVENT13 INVENT14 PACHCAN RONDOCAR STLOUIS MALAGUEN COME_ALL) do makepoly %%a /189 >nul
  51. echo. 
  52. echo Press any key when ready to start the music...
  53. pause >nul
  54. goto playsngs
  55.  
  56. :make386
  57. echo Compiling all songs... Please wait (Ctrl-C aborts)...
  58. for %%a in (1ST_NOEL BLUES FURELISE HOUSERIS INVENT03 INVENT04 INVENT08) do makepoly %%a /137 >nul
  59. echo Halfway done...
  60. for %%a in (INVENT13 INVENT14 PACHCAN RONDOCAR STLOUIS MALAGUEN COME_ALL) do makepoly %%a /137 >nul
  61. echo. 
  62. echo Press any key when ready to start the music...
  63. pause >nul
  64. goto playsngs
  65.  
  66. :playsngs
  67.  
  68. rem To remonve any song from playing, delete its block from this file:
  69.  
  70. cls
  71. echo The First Noel -- Traditional
  72. echo (Any key goes to next song, Ctrl-C stops batch file)
  73. playkb 1st_noel /s
  74.  
  75. cls
  76. echo Funky Blues Jam -- I'm embarassed to say I wrote it
  77. echo   1. some walking bass blues
  78. echo   2. imitation In The Mood (big band) blues
  79. echo   3. variation on 2
  80. echo   4. imitation Mississippi guitar strummin' blues 
  81. echo   5. 4 with a cheap guitar solo
  82. echo (Any key goes to next song, Ctrl-C stops batch file)
  83. playkb blues /s
  84.  
  85. cls
  86. echo Fur Elise -- Ludwig Van Beethoven
  87. echo (Any key goes to next song, Ctrl-C stops batch file)
  88. playkb furelise /s
  89.  
  90. cls
  91. echo House of The Rising Sun -- (Just a little arppeggiation) 
  92. echo (Any key goes to next song, Ctrl-C stops batch file)
  93. playkb houseris /s
  94.  
  95. cls
  96. echo Here are some Two Part Inventions by J. S. Bach:
  97. echo [These pieces courtesy Richard Pierce; Howdy, Richard!]
  98. echo (Any key goes to next song, Ctrl-C stops batch file)
  99. echo    Invention 03
  100. playkb invent03 /s
  101. echo    Invention 04
  102. playkb invent04 /s
  103. echo    Invention 08     -- a more famous one
  104. playkb invent08 /s
  105. echo    Invention 13     -- the most famous one!
  106. playkb invent13 /s
  107. echo    Invention 14     -- the last one (whew!)
  108. playkb invent14 /s
  109.  
  110. cls
  111. echo Pachelbel's Canon -- Simplified for piano 
  112. echo (Any key goes to next song, Ctrl-C stops batch file)
  113. playkb pachcan /s
  114.  
  115. cls
  116. echo Carulli's Rondo for the Classical Guitar 
  117. echo [Pieces written for the Guitar are well suited for three voice music]
  118. echo (Any key goes to next song, Ctrl-C stops batch file)
  119. playkb rondocar /s
  120.  
  121. cls
  122. echo St. Louis Blues -- W. C. Handy 
  123. echo [Upbeat blues/ragtime also sounds good on your PC]
  124. echo (Any key goes to next song, Ctrl-C stops batch file)
  125. playkb stlouis /s
  126.  
  127. cls
  128. echo Malagueña -- for piano by Isaac Albéniz 
  129. echo (Any key goes to next song, Ctrl-C stops batch file)
  130. playkb malaguen /s
  131.  
  132. cls
  133. echo O Come All Ye Faithful -- Traditional
  134. echo [Happy Christmas!]  
  135. echo (Any key goes to next song, Ctrl-C stops batch file)
  136. playkb come_all /s
  137.  
  138. goto playsngs
  139.  
  140. :noparam
  141. echo PLAYALL.BAT -- Jukebox program that plays all the .SNG files 
  142. echo                included with the Polyphonic Music 1.20 package
  143. echo. 
  144. echo Usage: playall [computer_type]
  145. echo. 
  146. echo Where: [computer_type] = PC, XT, AT, 286, 386
  147. echo                          (use the 286 & 386 for speed-up boards as well)
  148. echo. 
  149.